//             4531001,1321,30,20,0,P),VAWTER,MSGLEVEL=1,MSGCLASS=E
//S1       EXEC ACC,PARM.CPL='SIZE=125000',REGION.CPL=125K
//CPL.SYSIN DD *
                            (BID-EDIT DECK)
/*
//S2       EXEC ALG$S1$,REGION.GO=125K
//GO.SORTOUT DD UNIT=DISK,DISP=(NEW,DELETE),DSNAME=&OUTDATA,           *
//             SPACE=(CYL,(8,4)),                                      *
//             DCB=(LRECL=100,BLKSIZE=3000,RECFM=FB)
//GO.DISPLAYS  DD SYSOUT=A
//GO.RPTOT  DD SYSOUT=A
//GO.GDATA DD  UNIT=TAPE9,DISP=(NEW,PASS),DSNAME=GOODTRAN,             *
//             VOLUME=(PRIVATE,RETAIN),LABEL=(1,SL),                   *
//             DCB=(LRECL=100,BLKSIZE=1000,RECFM=FB)
//GO.CRD2  DD  DUMMY
//GO.INCRD DD *
                            (DATE CARD)
                            (BID DATA INPUT CARDS)
/*
//S3       EXEC ACCLG,PARM.CPL='SIZE=125000',REGION.CPL=125K,          *
//             REGION.GO=125K
                            (BID UPDATE DECK)
/*
//GO.DISPLAYS  DD SYSOUT=A
//GO.TRANSIN DD UNIT=TAPE9,DISP=(OLD,KEEP),DSNAME=GOODTRAN,            *
//             LABEL=(1,SL),VOLUME=PRIVATE
//GO.IND   DD  UNIT=DISK,DISP=(NEW,DELETE),DSNAME=&INDEX,              *
//             DCB=(LRECL=132,BLKSIZE=1320,RECFM=FB),                  *
//             SPACE=(TRK,(10,5))
//GO.OLDMAST DD UNIT=TAPE9,VOLUME=(PRIVATE,SER=H09296),LABEL=(1,SL),   *
//             DSNAME=PGSE01,DISP=(OLD,KEEP)
//GO.NEWMAST DD UNIT=TAPE9,DISP=(NEW,KEEP),DSNAME=GSE002,              C
//             LABEL=(,SL),VOLUME=PRIVATE,                             C
//             DCB=(LRECL=100,BLKSIZE=1000,RECFM=FB)
//GO.INTSTOR DD UNIT=DISK,DISP=(NEW,DELETE),DSNAME=&INTNAL,            *
//             SPACE=(CYL,(50,25)),                                    *
//             DCB=(LRECL=100,BLKSIZE=1000,RECFM=FB)
//GO.RPT  DD   UNIT=TAPE7,DISP=(NEW,KEEP),DSNAME=GUD002,               *
//             LABEL=(1,SL),VOLUME=PRIVATE,                            *
//             DCB=(LRECL=132,BLKSIZE=924,RECFM=FB,TRTCH=ET,DEN=2)
//GO.ERROT    DD SYSOUT=A,SPACE=(CYL,(8,4))
//GO.PMAST DD  UNIT=TAPE9,DISP=(NEW,PASS),LABEL=(1,SL),DSNAME=PGSE02,  *
//             VOLUME=(PRIVATE,RETAIN),                                *
//             DCB=(LRECL=100,BLKSIZE=1000,RECFM=FB)
//GO.CRD DD *
05-06-69  GSE       GSE     (CONTROL CARD)
/*
//S4       EXEC ACCLG,PARM.CPL='SIZE=125000',REGION.CPL=125K,          *
//             REGION.GO=125K
//CPL.SYSIN DD *
                            (BID REPORT DECK)
/*
//GO.DISPLAYS  DD SYSOUT=A
//GO.INDX  DD SYSOUT=A
//GO.UPDT  DD  UNIT=TAPE9,VOLUME=PRIVATE,                              *
//             LABEL=(,SL),DISP=OLD,DSNAME=PGSE02
//GO.RPTT  DD  UNIT=TAPE7,VOLUME=PRIVATE,LABEL=(1,SL),DISP=(NEW,KEEP), *
//             DCB=(DEN=2,TRTCH=ET,LRECL=132,BLKSIZE=924,RECFM=FB),    *
//             DSNAME=GSEBD2
//GO.MAST  DD UNIT=TAPE9,VOLUME=PRIVATE,                               *
//             DISP=(NEW,KEEP),                                        *
//             DCB=(LRECL=149,BLKSIZE=1490,RECFM=FB),DSNAME=BIDBED
//GO.OPT   DD *
YESYESALL               05-06-69        GSE       GSE (OPTION/CONTROL CARD)
/*
//         EXEC ACC,PARM.CPL='SIZE=125000',REGION.CPL=125K
//SYSIN DD *
/*
//         EXEC ALG$OBJ$,REGION.GO=250K
//GO.TRANSIN DD UNIT=TAPE7,DISP=OLD,LABEL=(,NL),DSNAME=NA108,          C
//             VOLUME=(PRIVATE,SER=H03132),DCB=(DEN=2,TRTCH=ET)
//GO.TASEARCH DD UNIT=TAPE9,DISP=(,PASS),DSNAME=CSM108,VOLUME=PRIVATE
//GO.TRASPLIT DD UNIT=DISK,SPACE=(TRK,(50,50)),DSNAME=&TB03DATA
//GO.TRANSOUT DD UNIT=DISK,SPACE=(TRK,(50,50)),DSNAME=&TB06DATA
//GO.DISPLAYS  DD  SYSOUT=A,SPACE=(CYL,(15,15))
//GO.DUPFILE  DD  *,BLOCK=1,CARDS=1000
EOF
/*
//S1       EXEC AS$1$
//SORTIN   DD  UNIT=TAPE9,DISP=OLD,DSNAME=CSM108,                      C
//             DCB=(LRECL=87,BLKSIZE=870,RECFM=FB)
//SORTOUT  DD  UNIT=TAPE9,DISP=(NEW,KEEP),DSNAME=BEDT8,                X
//             DCB=(LRECL=87,BLKSIZE=1740,RECFM=FB,DEN=2,TRTCH=ET),    C
//             VOLUME=PRIVATE
//SYSIN DD *
 SORT FIELDS=(1.0,32.0,CH,A)
 END
/*
//GSEPP    EXEC ACC,PARM.CPL='SIZE=125000',REGION.CPL=125K
//CPL.SYSIN DD *
/*
//GSEPP    EXEC ALG$S2$,REGION.GO=250K
//GO.CPIMSTR DD UNIT=TAPE7,LABEL=(,NL),DSNAME=GSEPP,DISP=OLD,
//             DCB=(LRECL=138,BLKSIZE=1656,DEN=2,TRTCH=ET,RECFM=FB),   *
//             VOLUME=(PRIVATE,SER=000000)
//GO.CPOMSTR DD UNIT=TAPE9,LABEL=EXPDT=99365,DISP=(,KEEP),
//             DCB=(LRECL=87,BLKSIZE=1740,RECFM=FB),DSN=GSEOUT,
//             VOLUME=PRIVATE
//GO.DELRPT  DD SYSOUT=A
//GO.CARDRD  DD *
/*
//S1       EXEC ACC,PARM.CPL='SIZE=125000',REGION.CPL=125K
//CPL.SYSIN DD *
/*
//S2       EXEC ALG$S1$,REGION.GO=250K
//GO.SORTOUT DD UNIT=TAPE9,DISP=(NEW,KEEP),DSNAME=GLEM6,               X
//             DCB=(LRECL=87,BLKSIZE=1740,RECFM=FB,DEN=2,TRTCH=ET),    X
//             VOLUME=PRIVATE
//GO.GRUMT  DD UNIT=TAPE9,LABEL=(,SL),DISP=(OLD,KEEP),                 X
//             DCB=(LRECL=68,BLKSIZE=3400,RECFM=FB),DSNAME=GPPL06,     X
//             VOLUME=PRIVATE
//GO.AUXST  DD UNIT=DISK,DISP=NEW,DSNAME=&TEMPST,SPACE=(TRK,(30,30)),  X
//GO.DISPLAYS  DD SYSOUT=A
//GO.RPTOUT  DD UNIT=TAPE7,LABEL=(,SL),DISP=(NEW,KEEP),                X
//             DCB=(LRECL=132,BLKSIZE=1320,TRTCH=ET,DEN=2,RECFM=FB),   X
//             DSNAME=LEMRPT,VOLUME=PRIVATE
//GO.OPTFL   DD *
2-WAY     YES     06-06-69     GRUMMAN LM-6
/*
//S1       EXEC AS$1$
//SORTIN    DD UNIT=TAPE9,DISP=OLD,LABEL=(,SL),DSNAME=BIDBED,          X
//             DCB=(LRECL=149,BLKSIZE=1490,RECFM=FB),                  X
//             VOLUME=(PRIVATE,SER=(HXXXXX,JXXXXX))
//SORTOUT   DD UNIT=TAPE9,DISP=(NEW,PASS),LABEL=(,SL),DSNAME=SMER07,   X
//             DCB=(LRECL=149,BLKSIZE=1490,RECFM=FB),                  X
//             VOLUME=(PRIVATE,RETAIN)
//SYSIN DD *
 SORT FIELDS=(16.0,16.0,CH,A,1.0,15.0,CH,A)
 END
/*
//         EXEC ACCLG,PARM.CPL='SIZE=125000',                          C
//             REGION.CPL=125K,REGION.GO=125K
//SYSIN DD *
/*
//GO.DISPLAYS DD SYSOUT=A
//GO.INPUT DD UNIT=TAPE7,DISP=OLD,LABEL=(,NL),DSNAME=GRUMMAN,          C
//             DCB=(DEN=2,TRTCH=ET,LRECL=246,BLKSIZE=1476,RECFM=FB),   *
//             VOLUME=(PRIVATE,SER=J02498)
//GO.OUTPUT DD UNIT=TAPE9,DISP=(,PASS),DSNAME=GPPL06,                  X
//             VOLUME=(PRIVATE,RETAIN)
//GO.PRINT DD SYSOUT=A
//GO.CCARD DD *
/*
//STEP1    EXEC ACC,PARM.CPL='SIZE=12500',REGION.CPL=125K
//CPL.SYSIN DD *
/*
//STEP12   EXEC ALG$S1$,COND.GO=(7,LT,STEP1.CPL),REGION.GO=250K
//GO.SORTOUT   DD UNIT=DISK,SPACE=(CYL,(10,5)),DSNAME=&TEMP1,          *
//             DCB=(LRECL=87,BLKSIZE=3480,RECFM=FB)
//GO.DISPLAYS DD SYSOUT=A
//GO.SYSERRS DD SYSOUT=A
//GO.GSETPE DD UNIT=TAPE7,DSNAME=CPOM7,DISP=OLD,VOLUME=SER=H02537,     C
//             DCB=(DEN=2,TRTCH=ET)
//GO.NATPE DD UNIT=TAPE9,DISP=OLD,DSNAME=BEDT7,VOLUME=SER=H08467
//GO.GRTPE DD UNIT=TAPE9,DISP=OLD,DSNAME=GLEM5,VOLUME=SER=H06327
//GO.WRMRG DD UNIT=TAPE9,DISP=(,PASS),DSNAME=BIDBED,                   X
//             VOLUME=(PRIVATE,RETAIN)
//GO.WIRLST    DD UNIT=TAPE7,DISP=(NEW,KEEP),DSNAME=WRERPT,DCB=(DEN=2, *
//             LRECL=132,BLKSIZE=1970,RECFM=FB,TRTCH=ET),              *
//             VOLUME=PRIVATE,LABEL=(,SL)
//GO.DATAIN DD *,BLOCK=21,CARDS=3100
11-04-71                               DATE OF CSM-116 BED UPDATE
/*
//STEP1    EXEC ACCLG,PARM.CPL='SIZE=125000',REGION.CPL=125K,          *
//             REGION.GO=250K
//CPL.SYSIN DD *
/*
//GO.DISPLAYS DD SYSOUT=A
//GO.WINPT  DD UNIT=TAPE9,VOLUME=(PRIVATE,SER=H09160),LABEL=(1,SL),    *
//             DCB=(LRECL=149,BLKSIZE=2980,RECFM=FB),DSNAME=MSTBED,    X
//             DISP=(OLD,KEEP)
//GO.WOTPT  DD UNIT=TAPE9,VOLUME=(PRIVATE,RETAIN),                     X
//             LABEL=(,SL),DISP=(NEW,PASS),                            X
//             DCB=(LRECL=149,BLKSIZE=2980,RECFM=FB),                  *
//             DSNAME=BIDBED
//GO.CRDS   DD *
/*
//S1       EXEC AS$1$
//SORTIN    DD UNIT=TAPE9,DISP=OLD,LABEL=(,SL),DSNAME=BIDBED,          X
//             DCB=(LRECL=149,BLKSIZE=1490,RECFM=FB),                  X
//             VOLUME=(PRIVATE,SER=(HXXXXX,JXXXXX))
//SORTOUT   DD UNIT=TAPE9,DISP=(NEW,PASS),LABEL=(,SL),DSNAME=SMER07,   X
//             DCB=(LRECL=149,BLKSIZE=1490,RECFM=FB),                  X
//             VOLUME=(PRIVATE,RETAIN)
//SYSIN DD *
 SORT FIELDS=(16.0,16.0,CH,A,1.0,15.0,CH,A)
END
/*
/*
//S3       EXEC ALG$S1$,REGION.GO=250K
//GO.DISPLAYS DD SYSOUT=A
//GO.MESSAG DD UNIT=TAPE7,DISP=(NEW,KEEP),DSNAME=MERPRT,               X
//             DCB=(LRECL=132,BLKSIZE=1320,DEN=2,TRTCH=ET),            X
//             LABEL=(,SL),VOLUME=PRIVATE
//GO.BBINTP   DD UNIT=TAPE9,DISP=OLD,DSNAME=SMER07,                    X
//             VOLUME=PRIVATE
//GO.FINAL    DD UNIT=TAPE9,DISP=(NEW,PASS),DSNAME=NSF107,             X
//             VOLUME=(PRIVATE,RETAIN)
//GO.OPTCD DD *
      05-28-69    007      005
/*
//CPLSTP   EXEC ACC,PARM.CPL='SIZE=125000',REGION.CPL=125K
//SYSIN    DD *
/*
//         EXEC ALG$S2$,COND.LKE=(7,LT,CPLSTP.CPL),REGION.GO=250K
//GO.SORTOUT DD UNIT=DISK,SPACE=(CYL,(75,25)),DSNAME=&TEST,            C
//             DCB=(LRECL=162,BLKSIZE=3240,RECFM=FB)
//GO.FST DD UNIT=TAPE7,DISP=OLD,DCB=(TRTCH=ET,DEN=2),                  C
//             DSNAME=SFIT07,VOLUME=(PRIVATE,SER=H08960)
//GO.RPT DD SYSOUT=A
//GO.DISPLAYS DD SYSOUT=A
//GO.BRT DD UNIT=DISK,DSNAME=&BRTBL,SPACE=(CYL,(20,10)),DISP=(,PASS)
//GO.XREF DD UNIT=TAPE7,VOLUME=PRIVATE,DISP=(,KEEP),DSNAME=BRXREF,     C
//             DCB=(DEN=2,TRTCH=ET)
//LOAD     EXEC PGM=IEBISAM,PARM=LOAD,REGION=50K
//SYSABEND DD SYSOUT=A,SPACE=(TRK,(1,70))
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD UNIT=TAPE9,DSNAME=UNODE,LABEL=(1,SL),DISP=OLD,             C
//             VOLUME=(PRIVATE,RETAIN,SER=H07832)
//SYSUT2   DD UNIT=DISK,DISP=(,PASS),SPACE=(CYL,(50,10)),              C
//             DCB=(DSORG=IS,OPTCD=M,NTM=5),DSNAME=&NODE
//         EXEC PGM=IEBISAM,PARM=LOAD,REGION=50K
//SYSABEND DD SYSOUT=A,SPACE=(TRK,(1,70))
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD UNIT=TAPE9,DSNAME=UBRANCH,LABEL=(2,SL),DISP=OLD,           C
//             VOLUME=(PRIVATE,RETAIN,REF=*.LOAD.SYSUT1)
//SYSUT2   DD UNIT=DISK,DISP=(,PASS),SPACE=(CYL,(25,10)),              C
//             DCB=(DSORG=IS,OPTCD=M,NTM=5),DSNAME=&BRANCH
//S1       EXEC ACC,PARM.CPL='SIZE=125000,NOMAP',REGION.CPL=125K
//SYSIN DD *
/*
//PATHGEN  EXEC ALG$OBJ$,COND.GO=(7,LT,S1.CPL),REGION.GO=125K
//GO.NODES DD UNIT=DISK,DISP=OLD,DCB=(DSORG=IS,OPTCD=M,NTM=5),         C
//             DSNAME=&NODE
//GO.BRANCHES DD UNIT=DISK,DISP=OLD,DCB=(DSORB=IS,OPTCD=M,NTM=5)       C
//             DSNAME=&BRANCH
//GO.DISPLAYS DD SYSOUT=A
//GO.PATHRPT DD UNIT=TAPE9,DSNAME=PATHS,DISP=(,KEEP),VOLUME=PRIVATE
//GO.ILLSR DD UNIT=TAPE9,VOLUME=(PRIVATE,REF=*.LOAD.SYSUT1),           C
//             LABEL=(3,SL),DSNAME=UTABLE,DISP=(,KEEP)
//GO.MAXIMP   DD *
999         06000 495 000000 999999
/*
//SS1      EXEC AS$1$
//SORTIN  DD   UNIT=TAPE9,DISP=(OLD,KEEP),LABEL=(,SL),                 *
//             DCB=(LRECL=18,BLKSIZE=900,RECFM=FB),DSNAME=PATHS,       *
//             VOLUME=(PRIVATE,SER=H07595)
//SORTOUT DD   UNIT=TAPE9,DISP=(NEW,PASS),VOLUME=(PRIVATE,RETAIN),     *
//             DSNAME=SPATH7,DCB=(LRECL=18,BLKSIZE=1800,RECFM=FB),     *
//             LABEL=(1,SL)
//SYSIN DD *
 SORT FIELDS=(13.0,6.0,CH,A)
 END
/*
//S1        EXEC ACCLG,PARM.CPL='SIZE=125000',REGION.CPL=125K,         *
//             REGION.GO=250K
//CPL.SYSIN DD *
/*
//GO.DISPLAYS DD SYSOUT=A
//GO.IPP   DD  UNIT=TAPE9,DISP=(OLD,KEEP),                             *
//             LABEL=(1,SL),DSNAME=SPATH7,VOLUME=PRIVATE
//GO.IPX   DD  UNIT=TAPE7,DISP=(OLD,KEEP),VOLUME=(PRIVATE,SER=H04036), *
//             DCB=(LRECL=168,BLKSIZE=840,RECFM=FB,DEN=2,TRTCH=ET),    *
//             DSNAME=BRXREF
//GO.OUTF  DD  UNIT=TAPE9,VOLUME=(PRIVATE,RETAIN),LABEL=(1,SL),        *
//             DISP=(NEW,PASS),DSNAME=RGN107
//S2       EXEC AS$1$
//SORTIN  DD   UNIT=TAPE9,LABEL=(1,SL),VOLUME=PRIVATE,DISP=(OLD,KEEP), *
//             DCB=(LRECL=180,BLKSIZE=1800,RECFM=FB),DSNAME=RGN107
//SORTOUT DD   UNIT=TAPE9,VOLUME=(PRIVATE,RETAIN),DISP=(NEW,PASS),     *
//             DCB=(LRECL=180,BLKSIZE=1800,RECFM=FB),DSNAME=SRGN07
//SYSIN   DD *
 SORT FIELDS=(1.0,12.0,CH,A)
 END
/*
//S3       EXEC ACCLG,PARM.CPL='SIZE=125000',REGION.CPL=125K,          *
               REGION.GO=250K
//CPL.SYSIN DD *
/*
//GO.DISPLAYS DD SYSOUT=A
//GO.INPTH DD UNIT=TAPE9,DISP=(OLD,KEEP),DSNAME=SRGN07,                *
//             VOLUME=PRIVATE
//GO.OUTPATH DD UNIT=TAPE9,VOLUME=(PRIVATE,RETAIN),DISP=(NEW,PASS),    *
//             DSNAME=GDPTH7
/*
//S2       EXEC ALG$S1$,REGION.GO=250K
//GO.SORTOUT DD UNIT=TAPE9,DISP=(NEW,PASS),LABEL=(,SL),DSNAME=PWRGD7,  X
//             DCB=(LRECL=181,BLKSIZE=1810,RECFM=FB),                  X
//             VOLUME=(PRIVATE,RETAIN)
//GO.DISPLAYS  DD SYSOUT=A
//GO.PTHIN  DD UNIT=TAPE9,LABEL=(1,SL),DISP=OLD,DSNAME=GDPTH7,         X
//             VOLUME=PRIVATE
//GO.DSKIO     DD UNIT=TAPE7,DISP=(NEW,KEEP),DSNAME=REVCUR,            X
//             DCB=(LRECL=132,BLKSIZE=1320,RECFM=FB,DEN=2,TRTCH=ET),   X
//             VOLUME=PRIVATE
//GO.INLDI     DD *
06-05-69  NA GSE-107
/*
//SS2      EXEC AS$1$
//SORTIN DD UNIT=TAPE9,DISP=OLD,LABEL=(,SL),DSNAME=PWRGD7,             X
//             DCB=(LRECL=181,BLKSIZE=1810,RECFM=FB),                  X
//             VOLUME=PRIVATE
//SORTOUT DD UNIT=TAPE9,DISP=(NEW,PASS),LABEL=(,SL),DSNAME=SPRGN7,     X
//             DCB=(LRECL=181,BLKSIZE=1810,RECFM=FB),                  X
//             VOLUME=(PRIVATE,RETAIN)
//SYSIN DD *
 SORT FIELDS=(1.0,12.0,CH,A)
 END
/*
//S4       EXEC ACCLG,PARM.CPL='SIZE=125000',REGION.CPL'125K,          *
//             REGION.GO=125K
//CPL.SYSIN DD *
/*
//GO.DISPLAYS DD SYSOUT=A
//GO.PRINTIT DD UNIT=TAPE7,VOLUME=PRIVATE,LABEL=(,SL),                 *
//             DCB=(LRECL=132,BLKSIZE=924,RECFM=FB,DEN=2,TRTCH=ET),    *
//             DISP=(NEW,KEEPE,DSNAME=RPT07
//GO.INPT1  DD UNIT=TAPE9,DISP=(OLD,PASS),DSNAME=SPRGN7,               *
//             VOLUME=(PRIVATE,RETAIN)
//GO.INPT2  DD DUMMY
//GO.CRD  DD *
NA GSE-107          06-05-69        (CONTROL CARD)
/*
//R2       EXEC ALG$S1$,REGION.GO=250K
//GO.PGIMSTR DD UNIT=TAPE9,LABEL=(,SL),DISP=OLD,DSNAME=NAME4,          *
//             DCB=(LRECL=181,BLKSIZE=1810,DEN=2,TRTCH=ET,RECFM=FB),   *
//             VOLUME=(PRIVATE,SER=TAPE#)
//GO.IDSMSTR DD UNIT=DISK,DISP=(NEW,DELETE),DSNAME=&STORE1,            *
//             DCB=(LRECL=181,BLKSIZE=1629,RECFM=FB),                  *
//             SPACE=(CYL,(50,25))
//GO.NRDMSTR DD UNIT=TAPE9,LABEL=(,SL),DISP=(NEW,PASS),DSNAME=NAME2,   *
//             DCB=(LRECL=104,BLKSIZE=1144,RECFM=FB),                  *
//             VOLUME=(PRIVATE,RETAIN)
//GO.AOVFLST DD UNIT=DISK,DISP=(NEW,DELETE),DSNAME=&STORE2,            *
//             DCB=(LRECL=181,BLKSIZE=1629,RECFM=FB),                  *
//             SPACE=(CYL,(25,25))
//GO.DISPLAYS DD SYSOUT=A
/*
//GO.NRDMSTR DD UNIT=TAPE9,LABEL=(,SL),DISP=OLD,DSNAME=NAME1,          *
//             DCB=(LRECL=104,BLKSIZE=1144,RECFM=FB),                  *
//             VOLUME=(PRIVATE,SER=TAPE#)
//GO.CSTERMB DD UNIT=TAPE9,LABEL=(,SL),DISP=(NEW,PASS),DSNAME=NAME2,   *
//             DCB=(LRECL=96,BLKSIZE=2400,RECFM=FB),                   *
//             VOLUME=(PRIVATE,RETAIN)
//GO.CSWTCHB DD UNIT=TAPE9,LABEL=(,SL),DISP=(NEW,PASS),DSNAME=NAME3,   *
//             DCB=(LRECL=96,BLKSIZE=2400,RECFM=FB),                   *
//             VOLUME=(PRIVATE,RETAIN)
//GO.CSSNODE DD UNIT=TAPE9,LABEL=(,SL),DISP=(NEW,PASS),DSNAME=NAME4,   *
//             DCB=(LRECL=96,BLKSIZE=2400,RECFM=FB),                   *
//             VOLUME=(PRIVATE,RETAIN)
//GO.LISTF  DD UNIT=TAPE7,LABEL=(,SL),DISP=(NEW,KEEP),                 *
//             DCB=(LRECL=132,BLKSIZE=924,RECFM=FB,DEN=2,TRTCH=ET),    *
//             DSNAME=NAME5,VOLUME=PRIVATE
//GO.CARDF   DD *
NODE REPORT IDENTIFICATION FILE
/*
//S2-EXEC-AS$3$
//SORTIN DD UNIT=TAPE9,LABEL=(,SL),DISP=OLD,DSNAME=NAME4,              *
//             VOLUME=PRIVATE,                                         *
//             DCB=(LRECL=96,BLKSIZE=2400,RECFM=FB)
//SORTOUT DD UNIT=TAPE9,DISP=(NEW,PASS),DSNAME=NAME6,                  *
//             VOLUME=(PRIVATE,RETAIN)                                 *
//             DCB=(LRECL=96,BLKSIZE=2400,RECFM=FB)
//SYSIN DD *
 SORT FIELDS=(24.0,30.0,CH,A,7.0,17.0,CH,A)
 END
/*
//         EXEC ACCLG,REGION.GO=250K
//CPL.SYSIN DD *
 SOURCE DECK
/*
//GO.DISPLAYS DD SYSOUT=A
//GO.CSTERMB DD UNIT=TAPE9,DISP=(OLD,KEEP),DSNAME=NAME2,               *
//             VOLUME=PRIVATE
//GO.CSWTCHB DD UNIT=TAPE9,DISP=(OLD,KEEP),DSNAME=NAME3,               *
//             VOLUME=PRIVATE
//GO.CSSNODE DD UNIT=TAPE9,DISP=(OLD,KEEP),DSNAME=NAME6,               *
//             VOLUME=PRIVATE
//GO.LISTF   DD UNIT=TAPE7,DISP=(NEW,KEEP),LABEL=(,SL),                *
//             DCB=(LRECL=132,BLKSIZE=924,RECFM=FB,DEN=2,TRTCH=ET),    *
//             VOLUME=PRIVATE,DSNAME=NAME7
/*
//EXEC ACC,PARM.CPL='SIZE=125000,NOMAP'8[)GION.CPL=125K
//SYSIN DD *
/*
//     EXEC ALG$S2$,REGION.GO=125K
//GO.SORTOUT  DD  UNIT=DISK,DSNAME=&PAULA,SPACE=(CYL,(20,10)),         C
//             DCB=(LRECL=19,BLKSIZE=1159,RECFM=FB)
//GO.BRNHTBL DD UNIT=DISK,DISP=(,PASS),SPACE=(CYL,(25,10)),            C
//            DCB=(DSORG=IS,OPTCD=M,NTM=5),DSNAME=&BRANCH
//GO.NODETBL DD UNIT=DISK,DISP=(,PASS),SPACE=(CYL,(50,10)),            C
//            DCB=(DSORG=IS,OPTCD=M,NTM=5),DSNAME=&NODE
//GO.DISPLAYS DD  SYSOUT=A
//GO.BRINPUT DD UNIT=DISK,DSNAME=&BRTBL,DISP=OLD
//UNLOAD   EXEC PGM=IEBISAM,PARM=UNLOAD,REGION=50K
//SYSABEND DD SYSOUT=A,SPACE=(TRK,(1,70))
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD UNIT=DISK,DISP=(OLD,DELETE),DSNAME=&NODE,
//            DCB=(DSORG=IS,OPTCD=M,NTM=5)
//SYSUT2 DD UNIT=TAPE9,DCB=(LRECL=80,BLKSIZE=3200,RECFM=FB,DEN=3),     C
//             VOLUME=(PRIVATE,RETAIN),LABEL=(1,SL),DSNAME=UNODE,      C
//             DISP=(,KEEP)
//         EXEC PGM=IEBISAM,PARM=UNLOAD,REGION=50K
//SYSABEND DD SYSOUT=A,SPACE=(TRK,(1,70))
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD UNIT=DISK,DISP=(OLD,DELETE),DSNAME=&BRANCH,
//            DCB=(DSORG=IS,OPTCD=M,NTM=5)
//SYSUT2 DD UNIT=TAPE9,DCB=(LRECL=80,BLKSIZE=3200,RECFM=FB)
//             VOLUME=(PRIVATE,RETAIN,REF=*.UNLOAD.SYSUT2),            C
